From 527da10641bfa858aecb21dbab6ae7b727e08811 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 9 May 1993 23:52:39 +0000 Subject: [PATCH] * finder.el: Bind finder-exit to 'q', not 'x'; the former is the conventional way to get out of such a package. (finder-summary): Use substitute-command-keys. (finder-mode): Use \\<...> to make sure we get the right keymap. --- lisp/finder.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/finder.el b/lisp/finder.el index 81b88e65f0c..4e68c4425d3 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -77,7 +77,7 @@ (setq finder-mode-map (make-sparse-keymap)) (define-key finder-mode-map " " 'finder-select) (define-key finder-mode-map "?" 'finder-summary) - (define-key finder-mode-map "x" 'finder-exit) + (define-key finder-mode-map "q" 'finder-exit) (define-key finder-mode-map "f" 'finder-list-keywords) ; ) @@ -227,7 +227,7 @@ arguments compiles from `load-path'." (defun finder-mode () "Major mode for browsing package documentation. - +\\ \\[finder-select] more help for the item on the current line \\[finder-exit] exit Finder mode and fill the Finder buffer. " @@ -247,7 +247,8 @@ arguments compiles from `load-path'." "Summarize basic Finder commands." (interactive) (message - "SPC = select, f = back to Finder, x = eXit, ? = help")) + (substitute-command-keys + "\\\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help"))) (defun finder-exit () "Exit Finder mode and kill the buffer" -- 2.30.2